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12780871382 94:93:42 BASRTL.SRC BASRESTOR 62:1 . 
MODULE BASSRESTORE ( ' Basic RESTORE gong trust 
{DENT = *1-005' ! File: BASRESTOR.B 


BEGIN 
; 
PARPADII IIIT LILI T TP ritiiiititititititiiiiiititity) 


; 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED 


is COPYRIGHT (c) 1978 


is . 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
Y THE TERM F SUCH 


USED AND COP 
'# ONLY IN ACCORDANCE WITH 


E IE 
LICENSE AND WITH TH 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 
: faansreencee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREB 
.* o 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
‘® AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION. 


is DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
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i FACILITY: 
Basic support Library - user callable 
0034 1 | ABSTRACT: 
0035 : This module is the UPI level of the Basic RESTORE construct. Initially, 
0036 é it contains only the code for sequential 1/0. This module will set 
0037 ‘ up the 1/0 data base for the LUN and go directly to the REC level. 
0038 ! The code for RESTORE (no channel number) is appended as an 
4 afterthought. 
0041 i 
004 ' ENVIRONMENT: 
0k : User access mode - AST reentrant. 
Go4s AUTHOR: Donald G. Petersen, CREATION DATE: 27-Feb-79 
0047 MODIFIED BY: 
0049 1! DGP, 27-Feb-79 : YERSION gt 
0050 : 1-001 - original. DGP 27-Feb-7 ; 
0051 ! 1-002 - Add code for RESTORE_DATA from gid version of the 
6038 ! RESTORE module. JBS 28-FEB-1979 
005 ! 1-003 = Add RESTORE_KEY. DGP 06-Apr-7 
3938 ' 1~008 - Set up ISBSA_USER_FP. JBS 25-JUL-1979 
0056 1-005 = Check for viftual”array use of this file. DGP 16-Oct-79 
005 ; 
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5 14-Sep-1984 11: BASRTL” SRC BASRESTOR. 5 2:1 
; 60 9058 1! 
; 61 060 1 ! SWITCHES: 
re doe? 1 
+4 43 aos : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
$ 66 0065 1! 
é 67 006 1 ! LINKAGES 
; 68 0067 1! 
3 69 0068 1 
i 0069 1 REQUIRE ‘RTLIN:OTSLNK’; ! Define all Linkages 
wea 0498 #1 
; 7 0499 1! 
3 7 B209 1 ! TABLE OF CONTENTS: 
3 74 501 1! 
: 75 F474 1 
$ 76 050 1 FORWARD ROUTINE 
3 77 0504 1 BASSRESTORE i. : NOVALUE, ' UPI Level Indexed RESTORE 
$ 78 0505 1 BASSRESTORE : NOVALUE, ! UPI Level Sequential RESTORE 
4 79 0506 1 BASSRESTORE _baT : NOVALUE; ' RESTORE (DATA statement) 
; 80 0507 1 
3 81 0508 1! 
$ 82 0509 1 ! INCLUDE FILES: 
3 83 0510 1! 
; «84 0511 1 ke: 
; #4 eat ! REQUIRE "RTLIN:BASFRAME'; ' BASIC stack frame definitions 
; 14 14h ' REQUIRE "RTLIN:BASINARG'; ! Frame init argument List 
; 89 0801 REQUIRE "RTLML:OTSISB’; ! ISB definitions 
; 4) a8 ! REQUIRE ‘RTLML:OTSLUB'; ' LUB definitions 
; e2 Bah ; REQUIRE ‘RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 
: #95 1207 1 LIBRARY *RTLSTARLE’: ' Starlet system macros 
3 96 1308 1 
; 97 1209 1! 
3 98 1210 1 ! MACROS: 
z 99 1211 1! 
s 100 iei¢ 1! NONE 
: 101 121 . ¥ 
: 102 1214 1 ! EQUATED SYMBOLS: 
: 103 1¢1? 1! NONE 
3 ©6104 1216 1! 
3: 105 1217 1! 
3 106 1218 1 ! PSECT DECLARATIONS: 
: 10 1533 1! 
> 108 1220 1 DECLARE_PSECTS (BAS); 
: 109 \s ++. -2 
: 110 1 ‘ 1 ! OWN STORAGE: 
ie 12 1! 
: 6 12246 1! NONE 
2. 39 +e, oe 
: 114 1 § 1 ! EXTERNAL REFERENCES: 
s 999 1 § , § 
: 116 1228 1 


: 


ALU EC RET MERIC 
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1 ati 4-Sep * =1382 te 3 ¥ BASRILY SR REIBASRESTOR. B92:1 ° 
; (117 1229 1 eave ye 

; 18 1250 1 BASSS$RE : JSB_REC_IND ' REC level processing - indexed 1/0 

; 119 1231 1 BASSSREC_ “ise : JSB-RECO NOVALUE, ' REC level processing - RMS interface 

; 120 1 ¢ 1 ! RESTORE sequential 

3; tel 1 1 BAS$SCB -PUSH : A CB_PUSH NOVALUE, ' Load eegrecer ccB 

.-% ¢ 1234 1 ASS$CB_ POP B_CB_POP NOVALUE, ! Done with register CCB 

. 2 1235 1 BA AS$$510 Nov AP ! Signal fatal error 

3 126 1236 1 BASS$SSTOP io: NOVALUE, ! Signal fatal I/0 error 

: 125 1237 1 BASSHANDLER; ! flags a BASIC frame 

; 126 1238 1 

; E34 1239 1 !+ 

3 ; : 1sey ' The following are the error codes used in this module. 

; 1$6 1342 1 

3 131 12435 1 EXTERNAL LITERAL 

s 32 1244 1 BASSK_PROLOSSOR : UNSIGNED (8), ! Program lost, sorry 

> 133 1245 1 BASSK-ILLILLACC : UNSIGNED (8), i illegal or illogical access 

3 is 1st8 : BASSK_IO_CHANOT : UNSIGNED (8); ! 1/0 channel not open 


es 


14 
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ti 1e28ep= 198s 11:88:86 FeAsRTe SReieAgaeston.B$2;1 «33 
; V7 1 rk 1 GLOBAL ROUTINE BASSRESTORE ( ! RESTORE sequent tat 
; 138 12469 1 UNIT ! Logical unit number 
3; in” 1 rt 1 ) : NOVALUE = 
; 140 1251 1 
s 16) 1 2g 1 !e4 
3 106 : 2? : FUNCTIONAL DESCRIPTION: 
3 146 1295 1! This routine will set up the 1/0 data base for this LUN if necessary 
3; 145 1256 1! and then go directly to the REC Level. When control is returned to 
3 «(146 1257 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
: es : 28 ! face to RMS is done at the REC level. The file is rewound. 
; 149 1260 1 ! FORMAL PARAMETERS: 
; 150 1261 1! ; } 
s 151 1 6¢ , } UNIT. rlu.v logical unit number 
3 13¢ 1265 1! 
; +e 1! IMPLICIT INPUTS: 
: 154 1265 1! 
; 155 1266 1! LUBS$V_VA_USE virtual array use 
3 136 1267 1! 
3 7 1268 1 ! IMPLICIT OUTPUTS: 
; 158 1269 1! : 
; 159 1270 1! ISB$B_STTM_TYPE the statement type 
3 + ff) ! LUBSV_BLK_OSE non-virtual array use 
: 4 1398 1 ! COMPLETION CODES: 
; 16 1274 1! 
: 164 lero (3 NONE 
3 «6¥65 1276 1! 
; 166 1277 1°! SIDE EFFECTS: 
3 «(ler 1278 1! 
; 168 1279 1! Signals: 
; 169 1280 1! BAS$K_IO_CHANOT (1/0 channel not open) 
; 170 1281 1! BASSK_ILCILLACC (illegal or illogical access) 
3 (171 1c8¢ 1! 
5 tm 1283 1 !-- 
3 Ws 1284 1 
3 «(174 1285 2 BEGIN 
>) ore 1286 2 
: 176 1287 2 BUILTIN 
3: 177 1288 FP; 
: «178 1289 
3: 179 1290 GLOBAL REGISTER 
; 180 1291 é CCB = K_CCB_REG : REF BLOCK C, BYTE); 
: «181 1 3 
: 182 129 LOCAL 
3; 183 1294 FMP : REF BLOCK C, BYTE); 
3: «184 1295 
s 185 1296 FMP = .FP; 
3: «4186 1297 '¢ 
; 187 1298 ! Allocate the LUB/ISB/RAB for this unit if necessary. Store new (CB (con- 
3 is : 44 ; trol block) in OTS$$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 
; 190 1301 BASSS$CB_PUSH (.UNIT, LUBSK_ILUN MIN); 
: 191 0¢ , 008 CISBSA_USER_FPJ = FMP SFSC_SAVE_FP2; 
: 198 1302 ! If the channel is not open, give an error message. 
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Channel 0 is not valid. 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$STOP_IO (BASSK_IO_CHANOT); 
14 

' Now that the data base is in place, store the statement type and go 
: directly to the REC level. 

* CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_RES; 

Check for virtual array usage and set block usage 


IF .CCB CLUBSV_VA_USE] THEN BASSSSTOP_IO(BASSK_ILLILLACC); 


CCB CLUBSV_BLK-USEJ = 1; 
BASSSREC_RSE (J; 


Now that the RESTORE has been done, pop the CCB off the I/0 system. 
BASSSCB_POP (); 
END; 
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'End of BASSRESTORE 
BASSRESTORE 
\1-005\ 


BASSSREC_RIN, BASSSREC _RSE 
-EXTRN BAS$$CB_PUSH, BASS$S$CB_PoP 


EXTRN BASSSSTOP, BAS$$STOP_TO 
EXTRN BASSHANDLER, BASSK_PROLOSSOR 
XTRN BAS$K_ILLILLACC 
XTRN BASS$K~10_CHANOT 
.PSECT _BASSCODE,NOWRT, SHR, PIC.2 
083C 00000 ENTRY BASSRESTORE, Save R2,R3,R4.R5,R11 
54 000000006 00 9€ 00002 MOVAB BASSS$STOP_IO, R4 
53 5D DO 00009 MOVL FP, FMP 
50 08 cE 9000¢ MNEGL 4&8 
52 04 AC bO O000F MOVL UNI 
000000006 00 16 00013 JSB BAS$$CB_PUSH 
FF4C CB 0c A3 00 90019 MOVL 12(FMP)> -180(CCB) 
07 FC AB £8 O01F BLBS  -4(CCB). 1$ 
7E 006 af A 99 ; MOVZBL #BASSK io CHANOT, =(SP) 
64 1 FB CALLS #1, BASS$$STOP IO 
FF71 CB 25 90 OO02A 1$: MOVE #37, -143(CCBY 
07 FF AB £9 O02F iBc «8S =1¢€ cB), 2$ 
7E 006 BF 9A 00033 MOVZBL #BASSK futitracc, -(SP) 
64 1 EB 0037 CALLS #1, BASS$STOP_IO 
FF AB 2 88 0003A 2S: BISB2 #2. -1(CCB 
000000006 16 0003E JSB BASSSREC_RSE 
000000006 00 16 00044 JSB BAS$SCB_POP 
04 0004A RET 


75 bytes, Routine Base: _BASSCODE + 0000 
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1ereee=188e 1298558 «PB Xsare gee ans 
GLOBAL ROUTINE BASSRESTORE_KEY ( ' RESTORE indexed 
UNIT, ' logical unit number 

KEY_NO ! key number 
) : NOVALUE = 
'ee 


; FUNCTIONAL DESCRIPTION: 


This routine will set up the 1/0 data base for this LUN if necessary 
and then go directly to the REC Level. When control is returned to 
this routine, it pops the CCB off of the 1/0 system. The actual inter- 
rece - Rms is done at the REC level. The file is rewound based on the 
ey spec " 


FORMAL PARAMETERS: 


UNIT. rlu.v logical unit number 
KEY_NO.rlu.v key of reference number 


MEUM —"OODNAUSWN—O0OO~n 


'¢ 
! Allocate the LUB/ISB/RAB for this unit if necessary. Store new (B (con- 
: trol block) in OTSS$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 


BASSSCB_PUSH (.UNIT, LUBSK_ILUN_MIN); 


ee ee ee a ee ee ee ee ee ee ee ee ee ee ed ad dd 
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i 
i 
i 
i 
i 
$ ‘ 
' 
2 i 
2 
' 
g 3 
$39 : : IMPLICIT INPUTS: 
$30 : LUBS$V_VA_USE virtual array use of file 
seo ; : IMPLICIT OUTPUTS: 
242 3 : ISBSB_STTM_TYPE the statement type 
eT : } LUBS$V_BLK_OSE non-virtual use of file 
245 3 ! COMPLETION CODES: 
246 3 : 
247 3 : NONE 
248 3 : 
249 3 ! SIDE EFFECTS: 
250 36 ‘ 
$2! 36 : Signals: 
252 36 : BASSK_IO_CHANOT (1/0 channel not open) 
$27 3 ; BASSK_ILCILLACC (illegal or illogical access) 
$23 36 leo 
56 3 
57 36 BEGIN 
58 3 
59 3 BUILTIN 
60 7 FP; 
61 7 
66 7 GLOBAL REGISTER 
<7 3 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
37 LOCAL 
$7 FMP : REF BLOCK C, BYTE); 
7 FMP = .FP; 
7 
8 
8 
8 
8 
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; Routine Size: 
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79 bytes, 


1407 


1 
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'¢ 


'¢ 


CCB CLUBSV_BLK~ 
BASSSREC_RIN (7KEY_NO); 


BASSSCB_POP (); 
END; 


54 000000006 
53 
50 
52 04 
000000006 
FF4C = CB oc 
07 FC 
7E 006 
64 
FF71 §8C¢B 
07 FF 
7E 006 
64 
FF 


: 900000006 
000000006 


Routine Base: 
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133 


} 14 
16-Sep-1984 
14-Sep-1984 


CCB CISBSA_USER_FP] = .FMP CSFSL_SAVE_FPI; 
If the channel is not open, give an error message. 
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IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BASSK_IO_CHANOT); 
! Now that the data base is in place, store the statement type and go 
;_ directly to the REC level. 

CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_RIN; 

i Check for virtual array usage and set block usage 
If .CCB re os hee BASSS$STOP_IO(BASSK_ILLILLACC); 


'¢ 
Now that the GET has been done, pop the CCB off the 1/0 system. 


Pret red KEY, Save R2,R3,R4,R5,R11 


S$$STOP_IO, R4 
MP 


TO 
cc 

$ 
ILLAC 
#1, BASSS$STOP_I 
#2. -1(CCB) 
KEY_NO, RO 
BASSSREC_RIN 
BAS$$CB_POP 


Page 


i IMPLICIT OUTPUTS: 
BSFSA_CUR_DTA.wa Current position in the DATA string 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 


14 
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1-005 1e3epn198e 91:98:58 FaksetesaeSeaseesion 692: 1 a 
+4 8 GLOBAL ROUTINE BASSRESTORE_DAT : NOVALUE = ! Restore DATA pointer 
01 1 'e4 
4 : } FUNCTIONAL DESCRIPTION: 
04 1 i Restore the current DATA pointer, so that it again points 
05 1 to the be inning of the DATA text. This routine is called 
Be } by the RESTORE BASIC statement. 
i FORMAL PARAMETERS: 
1 NONE 
i IMPLICIT INPUTS: 

BASSL_IN_BEG_DA.rl Offset to the beginning of the DATA 
string (in the argument List to the 
routine that initialized the frame) 

BSFSL_INIT_REL.rl Base for the above offset 

BSFSA_INIT_ARG.ra Address of the arg List (which contains 

; BAS$L_IN_BEG_DA) 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 


. 
° 
o 
° 
o 
e 
eo 
a 
. 
a 
oe 
° 
o 
. 
- 
° 
. 
° 
o 
° 
° 
° 
o 
° 
. 
° 
. 
° 
. 
° 
7 
° 
. 
* 
= 
° 
. 
° 
. 
e 
2 
. 
. 
° 
. 
e 
a 
° 
. 
. 
. 
° 
. 
° 
. 
e 
. 
e 
7 
e 
7 
@ 
. 
e 
o 
. 
. 
e 
~ 
a 
e 
e 
. 
° 
o 
6 
io 
o 
. 
° 
. 
e 
2 
° 
° 
e 
o 
ca 
a 
° 
. 
eo 
. 
° 
. 
. 
~ 
o 
o 
° 
a 
° 
~ 
« 
a 
. 
. 
° 
7 
° 
. 
* 
. 
. 


WWIII RININNNINININID 2 2 3 2 OO SS | OO 
MEWN SO OONAUESWN —“OOOVNOU EWN —O0O@ 


WAIN N. AAAI AANA AAA NAINA AAW WNWAAANNNINA AWA 


ee ee ed ee ee ee ee a a ec a ee ce ee ee ae ee a a ee a a ed ed 
Foy at at ot ot tt et et et et et ee ee ek ek ee ek et 
WR =O OONO NEW 0 DOONAN EWN $$ O ODNOAUE WN 9 OONAUSWN ($C ODNOULS WIN —OOO 
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? Manipulates the frame of its caller, which must be a BASIC frame. 
3, 4 - 
3 4 BEGIN 
37 4 
38 4 BUILTIN 
39 4 FP; 
40 4 
1 5 LOCAL 
ry 5 FMP : REF BLOCK (CO pyre) FIELD (BSFSFCD) ' our frame 
5 CALLERS FCD : REF BLOCK CO, BYTE) FIELD (BSFSFCD), ' caller's frame 
4 5 INIT_ARG : REF BLOCK CO, BYTE) FIELD (BASSINIT_ARGS), ! init arg List 
a : MAJOR_FCD : REF BLOCK CO, BYTE) FIELD (BSFSFCDY; ! caller’s major frame 
7 5 '¢ 
ni H : Get pointer to caller's frame. 
50 5 " #MP = .FP; 
31 ; CALLERS_FCD = .FMP CBSFSA_SAVED_FP); 
38 ° If the caller's frame is not a BASIC frame, we have a fatal error. 
55 64 
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5 
: 3} 1686 IF (.CALLERS_FCD CBSFSA_HANDLER] NEQA BASSHANDLER) THEN BASS$STOP (BASS$K _PROLOSSOR) ; 
: 358 146 '¢ 
$ 59 1468 i Get a ointer to the A s major frame. This may be the sone as 
3 60 re 4 i the caller’ s frame, but it will be different if, for example, the 
: 61 1470 i RESTORE is in a GOSUB, DEF or condition handler. 
: re alg MAJOR_FCD = .CALLERS_FCD CBSFSA_BASE_R11] + ZFIELDEXPAND (BSFSFRAME_BASE, 0); 
: 365 1474 i Get a pointer to the initialization argument List for the caller's 
; 366 1475 i frame. The initialization routine cleverly saved such a pointer 
; of 1e08 ; for us in the major frame. 
; $9 1478 INIT_ARG = .MAJOR_FCD CBSFSA_INIT_ARG); 
: 371 1480 i Relocate the offset to the beginning of the DATA text, and store 
: ; et it in the frame as the current pointer to the DATA text. 
; ” 1488 MAJOR_FCD CBSFSA_CUR_DATA] = .INIT_ARG CBASSL_IN_BEG_DAJ + .MAJOR_FCD CBSFS$L_INIT_RELJ; 
; 376 1485 2! ALL done. 
; 378 1487 1 END; ! end of BASSRESTORE_DAT 
0004 00000 ENTRY BASSAE STORE DAT, Save R2 : 140 
50 5D D0 4944 MOVL : 145 
52 Oc AO DO 9009 MOVL 12teHP> CALLERS _FCD + 146 
50 00000000G 00 9€ 00009 MOVAB BASSHAN RO ~ : 146 
50 62 D1 00010 CMPL CCALLERS. Feb). RO 3 
0B 13 00013 BEQL 1$ 3 
se 60G 8F 9A 00015 MOVZBL *#BASSK_PROLOSSOR, -(SP) 3 
000000006 00 01 FB 00019 CALLS #1 $$ 3 
50 F4 A2 000000C3 8F C1 00020 1$: ADDL #155, -12(CALLERS Ag oe. FCD : 1472 
51 D8 AO DO bpnsS VL wT OGAA JOR_ Hig [Rit A : 1478 
C4 AO 38 Al oc AO C1 0002D ADDL3 -36(MAJOR— FCD), BtIRITS ARG), 3: 1483 
-60(MAJOR_FCD) 3 
04 00034 RET : 1487 
; Routine Size: 53 bytes, Routine Base: _BASSCODE + 009A 
; 379 1488 1 
: 380 1489 1 END ‘End of module - BASSRESTORE 
3; «(381 1490 1 
3; 382 1491 0 ELUDOM 
3 PSECT SUMMARY 
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14-Sep-1984 BASRTL.S 
Name Bytes Attributes 
_BASSCODE 207 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


wooecess Syabols ocoeeeeo Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: (SYSLIBISTARLET.L32;1 9776 1 0 581 00:01.2 


COMMAND QUALIFIERS 
PL ESS/CRE CHO CE FELD, AME TEAL OPT ERT EES MDTORLE AL LS, SU 1BASRESTOR (08.9088 BASRES TON MSRC$:BASRESTOR/UPDATE=(ENHS$:BASRESTOR 


; Size:| 207 code + 0 data bytes 
; Run Time: 00:12. 

; Elapsed Time: 00:28. 

; Lines/CPU Min: 735 

: Lovenee/C-aiay 3891 
: 1 Ut 30 pages 
: oe A a, 1 


| 
| 
| 
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